home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CADAR / Symbols / Other / equal-tempered-scale < prev    next >
Encoding:
Text File  |  1998-10-22  |  1.3 KB  |  38 lines  |  [TEXT/MSWD]
  1. equal-tempered-scale 
  2. n frequency &key (pcnt 100) (dig 3)
  3.  
  4. creates an equal-tempered frequency-scale of n 
  5. frequencies starting from frequency.
  6. With percent = 100 you will always get an octave.
  7. If you change the percent you can compress 
  8. or expand the octave.
  9. dig controls the amount of digits (rounding)
  10.  
  11.  
  12. (equal-tempered-scale 12 64)
  13. ->(64.0 67.806 71.838 76.109 80.635 85.43 90.51 95.892 101.594 107.635 114.035 120.816 128.0)
  14.  
  15. (equal-tempered-scale 12 64 :dig 1)
  16. ->(64.0 67.8 71.8 76.1 80.6 85.4 90.5 95.9 101.6 107.6 114.0 120.8 128.0)
  17.  
  18. (equal-tempered-scale 12 64 :pcnt 120 :dig 1)
  19. ->(64.0 68.6 73.5 78.8 84.4 90.5 97.0 104.0 111.4 119.4 128.0 137.2 147.0)
  20.  
  21. (mapcar #'freq-to-note
  22. (equal-tempered-scale 21 16 :pcnt 333 :dig 1))
  23. ->((c 4) (d 4) (e 4) (|F#| 4) (|G#| 4) (|A#| 4) (b 4) (|C#| 5) (|D#| 5) (f 5) (g 5) (a 5) (b 5) (|C#| 6) (|D#| 6) (f 6) (|F#| 6) (|G#| 6) (|A#| 6) (c 7) (d 7) (e 7))
  24.  
  25.  
  26.  
  27.  
  28. (ton-to-syms  
  29.  (flatten (mapcar #'freq-to-note
  30.                    (equal-tempered-scale 21 8 :pcnt 333)))) 
  31.  
  32. ->(-m -k -i -g -e -c -b b d f h j l n p r s u w y [ ])
  33.  
  34. (syms-to-ton 
  35. (symbol-transpose 3 
  36. '(-m -k -i -g -e -c -b b d f h j l n p r s u w y [ ])))
  37. ->(|D#| 3 f 3 g 3 a 3 b 3 |C#| 4 d 4 e 4 |F#| 4 |G#| 4 |A#| 4 c 5 d 5 e 5 |F#| 5 |G#| 5 a 5 b 5 |C#| 6 |D#| 6 f 6 g 6)
  38.